Top 10k strings from Learn Chess - Part 2 - Board Play (1987)(Coxsoft).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /
Back to the directory listing
16 ok=ok+(100
4 wqr=wqr-(wqr
4 wkr=wkr-(wkr
4 m$="White":
4 bqr=bqr-(bqr
4 bkr=bkr-(bkr
4 a(vb,hb)=0
3 ve,h;x$(x);
3 a(vb,hb)>7
3 a(vb,hb)=s(1
3 a(va,ha)=s(1
3 a(va,ha)=10
3 a(va,ha)=1
3 a(va,ha)=0
3 )=a(vb,hb):
3 )=a(va,ha):
2 z$="O-O-O":
2 z$="O-O ":
2 wb);("White"
2 v,o;s$'s$:
2 r$(v+l,g+l):
2 m$="Black":
2 l,f+l;z$;"
2 a(wkv,n)=20
2 a(wkv,n)=12
2 a(w,w)>v+l
2 a(w,v-l)>v+l
2 a(w,v-l)<t
2 a(w,g+l)>v+l
2 a(w,g+l)=l
2 a(w,g+l)<t
2 a(w,g)>v+l
2 a(w,g)=t+g
2 a(vb,hb)=a(va,ha):
2 a(vb,hb)=6
2 a(va,hb-l)=w+(t
2 a(va,hb+l)=w+(t
2 a(v-l,g+l)=t+g
2 a(v,v-l)>v+l
2 a(v,v-l)<t
2 a(v,v)>v+l
2 a(v,g+l)>v+l
2 a(v,g+l)=t+g
2 a(v,g+l)=t
2 a(v,g+l)<t
2 a(v,g)>v+l
2 a(v+l,v+l)
2 a(n,wkh)=20
2 a(n,wkh)=12
2 a(n,bkh)=7
2 a(n,bkh)=2
2 a(bkv,n)=7
2 a(bkv,n)=2
2 BOARD PLAY
2 '"Is this"'"correct?":
1 z$="O-O-O"
1 z$="O-O "
1 z$="N@notation.":
1 z$="L@descriptive":
1 z$="ISchessboard.":
1 z$="IBBOARD PLAY":
1 z$="I@experiment.":
1 z$="H@notation":
1 z$="GOan #intelligent$":
1 z$="F@algebraic":
1 z$="EDPART 2":
1 z$="@ALEARN CHESS":
1 y,e-l;"KN
1 y+l,o;s$;s$:
1 wm=l);" ":
1 wm=l)'wm-wp;" piece";("s"
1 wm;" "'"chessm";("en."
1 wkr)'("O-O-O"
1 wc>l)'("O-O"
1 wc=wkc+wqr+wkr:
1 wc=wkc+wkr+wqr:
1 wb);" is in "'" check!
1 wb)+("Black"
1 wb)'"agree?":
1 w;s$'m$;" already"'" has a King. "'s$:
1 w;s$'" ";m$;" has "'" no King! "'s$:
1 w);" "'" is pinned. "'s$:
1 ve=vb*w+(w
1 ve,h;" ":
1 ve+l,h;x$(x+l):
1 va=t-l-ve:
1 v,o;s$'s$'s$'s$'s$'s$:
1 v,o;" ";("Black"
1 this"'"position if"'"needed again.":
1 t-l,o;'"You may set"'"up positions"'"for analysis"'"or play a"'"game against"'"a friend.":
1 t,g;"No ";x;".":
1 t+w,v;("O-O "
1 t+w,o;"Game drawn:"'"repetition"'"of moves.":
1 t+w,o;"Game drawn"'"under the 50"'"move rule.":
1 t+l,o;s$'s$'s$'s$'s$:
1 sequential
1 s)+("off."
1 s$'s$'" B":
1 r$(rep)=z$:
1 p-y*w-v,r/t:
1 p+w+z-u,w:
1 p(n)=p(n)-(1
1 ound is "+("on. "
1 ok=z);("Rook"
1 ok=r);" has "'" been moved. "'s$:
1 odify"'"option a[ows"'"you to #take"'"back$ a move.":
1 o;("Black"
1 o,y+w;vb;"
1 n,o;s$+" ":
1 m$="White"
1 m$="Black"
1 m$=""+("White"
1 l;s$'" ";m$;" can't "'" have any "'" more ";i$'s$:
1 l;m$'"resigns.":
1 l;" ";m$;" is in "'" check too! "'s$:
1 l,y+g;" ENTER "
1 l,e+v;" ENTER "
1 l);"."''"Black has ";bm'"chessm";("en:"
1 l)'wp;" pawn";("s"
1 l)'bp;" pawn";("s"
1 l'("White"
1 l'" Try again.":
1 ishop or K
1 i$=i$+"x":
1 i$=i$+"s. ":
1 i$=i$+" ":
1 i$="men! ":
1 i$="Rook":
1 i$="Queen":
1 i$="Pawn":
1 i$="Knight":
1 i$="King":
1 i$="Blank":
1 i$="Blank"
1 i$="Bishop":
1 i$+t;z$;", rank
1 i$+e;b$;". ";
1 g,o;s$'s$'s$:
1 g,o;s$'s$'s$'s$'s$'s$'s$'s$'s$'s$'s$:
1 g,o;s$'" That can't "'" be correct. ";
1 g,o;s$'" ";m$;"] move "'s$'s$;
1 g,o;m$;" has ";:
1 g,o;"White has ";wm'"chessm";("en:"
1 g,o;"This program"'"a[ows you to"'"use your 48K"'"Spectrum as a"'"chessboard...":
1 g,o;"Press
1 g,o;"Is White to"'"play up the"'"board or"'"down?"''"Press
1 g,o;"Enter White]"'"men first."
1 g,o;"Don't forget"'"to
1 g+w,g;"No ";no:
1 fifty-move"'"rule
1 f+w,f-w+n;
1 en passant
1 e-ve*w,f-w+(h*w);x$(x+l):
1 e-ve*w,f-w+(h*w);" ":
1 e-l-ve*w,f-w+(h*w);x$(x);
1 e-l-ve*w,f-w+(h*w);" ";
1 e(n)=e(n)-(1
1 d,m;x$(x);
1 checkmate!
1 bm=l);" ":
1 bm=l)'bm-bp;" piece";("s"
1 bm;" "'"chessm";("en."
1 bc=bkc+bqr+bkr:
1 bc=bkc+bkr+bqr:
1 a(w,v-l)=t
1 a(w,v-l)=l
1 a(w,v+l)=v
1 a(w,v+l)=t+g
1 a(w,v+l)=l
1 a(w,v+l)=g
1 a(w,v)>v+l
1 a(w,v)=t+g
1 a(w,l)=t+g
1 a(w,g+l)=t+g
1 a(w,g+l)=t
1 a(ve/w,hb)=o:
1 a(vb,hb-l)=0
1 a(vb,hb+l)=0
1 a(vb,hb)=w+(t
1 a(vb,hb)=w
1 a(vb,hb)=v+(t+
1 a(vb,hb)=t+w
1 a(vb,hb)=g+(t+l
1 a(vb,hb)=10
1 a(vb,hb)=1
1 a(vb,hb)<10
1 a(va-l,ha)
1 a(va,hb-w)=o:
1 a(va,hb-l)=o:
1 a(va,hb+w)=o:
1 a(va,hb+l)=o:
1 a(va,ha)>7
1 a(va,ha)=o:
1 a(va,ha)=7
1 a(va,ha)=6
1 a(va,ha)=4
1 a(va,ha)=20
1 a(va,ha)=2
1 a(va,ha)=18
1 a(va,ha)=15
1 a(va,ha)=14
1 a(va,ha)=12
1 a(va,ha)<10
1 a(va,h)=v-l:
1 a(va,h)=v-l):
1 a(va,h)=v-l
1 a(va,h)=t:
1 a(va,h)=t+w
1 a(va,h)=t):
1 a(va,h)=t)
1 a(va,h)=o:
1 a(va,h)=l:
1 a(va,h)=l):
1 a(va,h)=l)
1 a(va,h)=f-l
1 a(va,h)=e:
1 a(va,h)=e):
1 a(va+l,ha)
1 a(v-l,w)=t+g
1 a(v-l,v-l)=t+g
1 a(v-l,v-l)=
1 a(v-l,v+l)=t+g
1 a(v-l,v)=t+g
1 a(v-l,g+l)=
1 a(v-l,g)=t+g
1 a(v,w)>v+l
1 a(v,w)=t+g
1 a(v,v-l)=t+g
1 a(v,v-l)=t
1 a(v,v-l)=l
1 a(v,v+l)=y
1 a(v,v+l)=t+g
1 a(v,v+l)=t
1 a(v,v+l)=f
1 a(v,l)=t+g
1 a(v,g+l)=l
1 a(v,g)=t+g
1 a(v+l,w)=t+g:
1 a(v+l,v-l)=g:
1 a(v+l,v-l)=f:
1 a(v+l,v+l)=w:
1 a(v+l,v+l)=w):
1 a(v+l,v+l)=t+w:
1 a(v+l,v+l)=t+w)
1 a(v+l,v+l):
1 a(v+l,v)=t+g:
1 a(v+l,l)=w:
1 a(v+l,l)=w):
1 a(v+l,l)=t+w:
1 a(v+l,l)=t+w):
1 a(v+l,g+l)=y
1 a(v+l,g+l)=v-l):
1 a(v+l,g+l)=v-l
1 a(v+l,g)=v:
1 a(v+l,g)=e:
1 a(v+l,g)=e):
1 a(l,v-l)=g:
1 a(l,v-l)=f:
1 a(l,v+l)=w:
1 a(l,v+l)=w):
1 a(l,v+l)=t+w:
1 a(l,v+l)=t+w):
1 a(l,v)=t+g:
1 a(l,l)=w):
1 a(l,l)=t+w:
1 a(l,l)=t+w)
1 a(l,g+l)=e):
1 a(l,g)=v-l:
1 a(l,g)=v-l):
1 a(l,f-t)=v:
1 a(l,f-t)=e:
1 a"'"saved game."'"
1 a saved position.",:
1 VERIFIED OK",:
1 V.5. Safe game SAVE]"'"
1 This position"'"is drawn."''"Try again.":
1 MODIFYING A"'"POSITION:":
1 KR KB QB QR";
1 HOMHHHHOOO
1 En passant.":
1 Draw offered"'"by ";m$;"."''"Does ";("Black"
1 Draw agreed."'s$:
1 DESCRIPTIVE > QR QB KB KR"'" (English)"," QN
1 Algebraic > "''"
1 ,v;("O-O-O"
1 '"are provided.":
1 '"To castle,"'"move your"'"King to the"'"appropriate"'"square,e.g."'"
1 '"Make sure you"'"understand"'"
1 '"Its purpose"'"is to act as"'"an
1 '"It wi[ stop a"'"game if the"'"
1 '"It wi[ simply"'"block a[ your"'"attempts to"'"move.":
1 '"If you don't"'"want to alter"'"the number of"'"moves, press"''"
1 '"If you are"'"not in check"'"and cannot"'"move,that is"'"
1 "throughout.":
1 "You may agree"'"a draw at any"'"time: press
1 "Which side is"'"to move next?"''"
1 "To move a man,"'"enter the"'"start and end"'"locations,e.g."'"
1 "There are 31"'"such messages.":
1 "The program"'"uses":
1 "The program"'"does not play"'"chess,so it"'"can't analyse"'"a position"'"for you.":
1 "Neither side"'"may castle.":
1 "If you don't"'"understand"'"fu[y how"'"chessmen are"'"moved,":
1 "If you are in"'"check and you"'"cannot move,"'"that is"'"
1 "Helpful error"'"messages,e.g.":
1 "Fo[owing"'"
1 "Enter Black]"'"chessmen."
1 "Abbreviations"'"for English"'"file names"'"wi[ be shown"'"to help you"'"play through"'"any game"'"recorded in":
1 "6100"+wb*v
1 "," and press ENTER when ready.",
1 "''"The program"'"assumes the"'"fo[owing to"'"be possible:"'
1 "'"wi[ not te["'"you when"'"checkmate or"'"stalemate"'"occurs.":
1 "'"repetition of"'"moves forces"'"the program"'"to recognize"'"a drawn game.":
1 "'"(a draw).":
1 "'" moves:
1 "'" capture
1 " except when "'" castling. "'s$:
1 " Try moving "'" somewhere! "'s$:
1 " Rooks move "'" up,down or "'" sideways. "'s$:
1 " Queens move "'" as Bishops "'" or as Rooks."'s$:
1 " Pawns move "'" one square "'" at a time..."'s$:
1 " Pawns can't "'" go sideways."'s$:
1 " Pawns can't "'" go backward."'s$:
1 " Pawns
1 " Only Knights"'" may #jump$. "'s$:
1 " No chessman "'" at ";z$(
1 " Kings move "'" one square "'" at a time..."'s$:
1 " King would "'" be in check."'s$:
1 " King cannot "'" castle when "'" in check. "'s$:
1 " It is not "'" White] move."'s$:
1 " It is not "'" Black] move."'s$:
1 " Intermediate"'" square is "'" attacked. "'s$:
1 " I[egal move."'s$:
1 " Bishops move"'" diagona[y. "'s$:
1 " 2 on their "'" first move "'" (optional). "'s$:
1 " ";m$;"] King "'" must escape "'" check!
1 " ";m$;" can't "'" take ";m$;". "'s$:
1 " Man at ";z$(
1 " ";("King"
1 " W"'s$'s$:
1 to"'"play a game,"''"
1 to set up"'"a position,"''"
1 to exit.":
1 runs again.
1 quits"'"the program."
1 or"'"
1 on"'"the cassette"'"are six chess"'"positions,"'"complete with"'"descriptive"'"text.":
1 loads them"'"(not yet).":
1 comes"'"into effect.":
1 and"'"to block any"'"i[egal move.":
1 You're pulling my leg!",:
1 You cannot "'" have a pawn "'" on Rank 1 "'" or Rank 8. "'s$:
1 VERIFYING
1 VERIFICATION FAILED","
1 Try again?
1 Square ";z$;b$;" is already occupied.",:
1 Rewind tape to
1 Press DELETE to erase.",
1 Pawn promotion. Please choose:
1 Note tape count,start recorder and press ENTER.
1 No cheating!":
1 Ian Cox 6/2/87":
1 How many moves has ";m$;" made? "'"
1 Enter your move:
1 DELETE","
1 DELETE aborts.":
1 COXSOFT 1987":
1 COXSOFT 1987
1 Are you sure?
1 = capture.":
1 = blank,
1 (a to h)","
1 ";i$;" on file
1 "'" text for "'" LEARN CHESS "'" position "'s$'s$'s$;
1 "'" diagona[y. "'s$:
1 "'" Knight
1 The Kings "'" cannot be "'" adjacent! "'s$:
1 Square ";z$;b$;" is already blank.",: